home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / DLGSETHP.PRG < prev    next >
Text File  |  1993-05-23  |  1KB  |  39 lines
  1. PROCEDURE DlgSetHp
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   DlgSetHp - 
  5. *
  6. * DESCRIPTION
  7. *
  8. *----------------------------------------------------------------------------
  9.   DECLARE aLines[9]
  10.   nLines = 1
  11.   nMemoLines = MEMLINE( Hlp_Text )
  12.   IF nMemoLines >= gnMemo
  13.     DO WHILE nLines <= 9
  14.       aLines[ nLines ] = MLINE( Hlp_Text, gnMemo )
  15.       gnMemo = gnMemo + 1
  16.       nLines = nLines + 1
  17.     ENDDO
  18.     ef_ms01_0 = LEFT( aLines[ 1 ] + SPACE(65), 65 )
  19.     ef_ms02_0 = LEFT( aLines[ 2 ] + SPACE(65), 65 )
  20.     ef_ms03_0 = LEFT( aLines[ 3 ] + SPACE(65), 65 )
  21.     ef_ms04_0 = LEFT( aLines[ 4 ] + SPACE(65), 65 )
  22.     ef_ms05_0 = LEFT( aLines[ 5 ] + SPACE(65), 65 )
  23.     ef_ms06_0 = LEFT( aLines[ 6 ] + SPACE(65), 65 )
  24.     ef_ms07_0 = LEFT( aLines[ 7 ] + SPACE(65), 65 )
  25.     ef_ms08_0 = LEFT( aLines[ 8 ] + SPACE(65), 65 )
  26.     ef_ms09_0 = LEFT( aLines[ 9 ] + SPACE(65), 65 )
  27.  
  28.   ELSE
  29.     *-- Already at the bottom of the memo
  30.   ENDIF
  31.     
  32.   nMemoLines = MEMLINE( Hlp_Text )
  33.  
  34. RETURN
  35. *-- EOP: DlgSetHp WITH 
  36.  
  37.  
  38.  
  39.